home *** CD-ROM | disk | FTP | other *** search
/ Merciful 5 / Merciful - Disc 5.iso / software / r / real_3d / real3dv3.3b.dms / real3dv3.3b.adf / RPL.LZH / RPL / sys / editor.rpl < prev    next >
Text File  |  1995-04-18  |  1KB  |  74 lines
  1. ( -------------------------------------------------
  2. ( FILE:         editor.rpl
  3. ( DESCRIPTION:  Definitions for Real 3D Editor
  4. ( PLATFORM:     AMIGA
  5. ( VERSION:      2.17
  6. ( DATE:            5-Feb-93
  7. ( -------------------------------------------------
  8. ( Copyright © 1993 Realsoft.  All rights reserved
  9. ( -------------------------------------------------
  10.  
  11. ?& EDITOR.RPL NOT ?IF
  12. 17 CONSTANT EDITOR.RPL
  13.  
  14. ( Window Types
  15.  
  16. 1  CONSTANT iWT_MASTER
  17. 2  CONSTANT iWT_SELECT
  18. 3  CONSTANT iWT_VIEW
  19. 4  CONSTANT iWT_VIEWSB
  20. 5  CONSTANT iWT_VIEWBL
  21. 6  CONSTANT iWT_SHELL
  22. 7  CONSTANT iWT_TOOL
  23. 8  CONSTANT iWT_ANIM
  24. 9  CONSTANT iWT_PALETTE
  25. 10 CONSTANT iWT_VIEWDB
  26. 11 CONSTANT iWT_MATERIAL
  27. 12 CONSTANT iWT_SCREEN
  28. 15 CONSTANT iWT_MEASURE
  29.  
  30. ( Window Messages
  31.  
  32. 59 CONSTANT iWM_ACTIVATE  ( window to front )
  33. 50 CONSTANT iWM_DIE       ( close window )
  34. 61 CONSTANT iWM_ACTION      ( execute action
  35.  
  36. (
  37. ( Message classes for WM_ACTION
  38. (
  39.  
  40. 256 CONSTANT iWC_MENU
  41.  
  42. (
  43. ( Build-up menu/item/sub
  44. (
  45.  
  46. : SHIFTMENU 31 BAND ;
  47. : SHIFTITEM 63 BAND 32 * ;
  48. : SHIFTSUB 31 BAND 2048 * ;
  49.  
  50. : MENUNUM ( menu item sub )
  51.     PARAM
  52.         VARIABLE iMenu
  53.         VARIABLE iItem
  54.         VARIABLE iSub
  55.     ENDPARAM
  56.  
  57.     iMenu FETCH SHIFTMENU
  58.     iItem FETCH SHIFTITEM
  59.     iSub  FETCH SHIFTSUB
  60.     BOR BOR
  61. ;
  62.  
  63. ( Flags for window refreshing
  64.  
  65. 2 1 POW CONSTANT lWR_SELECT
  66. 2 2 POW CONSTANT lWR_VIEW
  67. 2 3 POW CONSTANT lWR_MAT
  68. 2 4 POW CONSTANT lWR_ANIM
  69. 2 5 POW CONSTANT lWR_COL
  70. 2 6 POW CONSTANT lWR_VECT
  71. 255     CONSTANT lWR_ALL
  72.  
  73. ?ENDIF ( EDITOR.RPL
  74.